25 A=FRE(0):CLR:GOSUB5200:OPEN5,8,15:POKE788,PEEK(788)+3:NA=0:J=0:E=0
30 FT$=".....([194]EZEICHNUNG)....":V$="....([206]AME)...."
35 P$="...([211]TRASSE)..."
40 SE$=".([208][204][218] + [207]RT).":TF$="[212]EL.: ...../...."
45 BV$="...([194]ANKVERBIND.)...":BZ$="[194][204][218] ... ... ..":KT$="[203]TO.-[206]R. ........."
60 ZE$="[212]EXTVERARBEITUNG              [202][207][197][215][201]-[211][207][198][212][146]"
80 DIMTE$(100):POKE54296,15
100 POKE53280,2:POKE53281,2:POKE646,1:GOSUB5300
130 GOSUB2300:PRINTCHR$(147);CHR$(14);ZE$
160 PRINT:PRINT"  1 ->[146] [212]EXT EINGEBEN
190 [153]:[153]"  2 ->WAIT (null)EXT AENDERN
220 PRINT:PRINT"  3 ->[146] [212]EXT LOESCHEN
250 [153]:[153]"  4 ->WAIT (null)EXTAUSGABE PEEKILDSCHIRM
280 PRINT:PRINT"  5 ->[146] [212]EXTAUSGABE [196]RUCKER
310 [153]:[153]"  6 ->WAIT STR$ISKETTENMENUE
320 PRINT:PRINT"  7 ->[146] [198]ARBWECHSEL
330 [153]:[153]"  8 ->WAIT ATNNWEISUNGEN
340 PRINT:PRINT"  9 ->[146] [208]ROGRAMM [194]EENDEN
400 [153]:[153]:[153]:[153][163]15)"RIGHT$HRE (null)AHL
490 GETWA$:IFWA$=""THEN490
500 GOSUB2300
520 WA=VAL(WA$)
550 IFWA<1ORWA>9THEN490
580 ONWAGOTO600,900,1600,1300,1500,4100,2000,3000,2200
600 GOSUB2300:PRINTCHR$(147);ZE$
605 PRINT"   [212]EXT WEITERSCHREIBEN [198]1 SONST ^"
610 GETWA$:IFWA$=""THEN610
615 IFWA$=CHR$(133)THENFORI=1TO100:IFTE$(ZN)="**"THENTE$(ZN)="":NEXT:GOTO630
620 GOTO630
625 GOTO610
630 INPUT"    [193]B WELCHER [218]EILENNUMMER ->    ^[157][157][157]";ZN$:IFZN$=CHR$(94)THEN130
635 ZN=INT(VAL(ZN$)):IFZN<1ORZN>99THENPRINT"[145][145][145]":GOTO630
640 TE$(ME)=""
645 PRINT
650 PRINTZN;": ";
655 AZ=0
660 GETEG$
665 PRINTCHR$(185);CHR$(157);
670 IFEG$=""THEN660
675 IFEG$=CHR$(29)OREG$=CHR$(17)OREG$=CHR$(145)THEN660
678 IFEG$=CHR$(157)OREG$=CHR$(19)OREG$=CHR$(34)THEN660
680 IFEG$<>CHR$(20)THEN730
685 IFLEN(TE$(ZN))<1THEN660
690 PRINT" ";CHR$(157);
700 PRINTCHR$(157);" ";CHR$(157);
710 TE$(ZN)=LEFT$(TE$(ZN),LEN(TE$(ZN))-1)
720 GOTO660
730 IFEG$<>CHR$(94)THEN770
740 IFLEN(TE$(ZN))<1THEN830
750 GOTO660
760 IFAZ=0THENTE$(ZN)="":AZ=1
770 PRINT" ";CHR$(157);EG$;
780 IFEG$=CHR$(13)THENZN=ZN+1:GOTO810
790 TE$(ZN)=TE$(ZN)+EG$
800 IFLEN(TE$(ZN))>64THENGOSUB2300
805 IFLEN(TE$(ZN))=70THENEG$=CHR$(13):ZN=ZN+1
810 IFZN=100THEN830
815 IFEG$=CHR$(13)THEN650
820 GOTO660
830 PRINT" ";CHR$(157);
840 TE$(ZN)="**":ME=ZN
850 GOSUB2300:GOTO130
900 GOSUB2300:PRINTCHR$(147):POKE211,0:POKE214,24:SYS58732
905 PRINT"[198]1[146]=[204]OESCHEN [195]USOR [210]IGHT[146]=[193]LTEN [212]EXT [197]INF.";CHR$(19);ZE$
910 INPUT"   [215]ELCHE [218]EILENNUMMER ->   ^[157][157][157]";ZN$
912 IFR=1THENCHR$(13)
915 IFZN$=CHR$(94)THEN130
920 ZN=INT(VAL(ZN$)):IFZN<1ORZN>99THENPRINT"[145][145][145]":GOTO910
930 PRINT
940 PRINTZN;": ";
950 PRINTTE$(ZN)
960 PRINT
965 PRINTZN;": ";
970 NT$=""
990 GETEG$
1000 PRINTCHR$(185);CHR$(157);
1005 IFEG$=CHR$(B7)OREG$=CHR$(19)OREG$=CHR$(145)OREG$=CHR$(157)OREG$=CHR$(34)THEN990
1010 IFEG$=""THEN990
1015 IFEG$=CHR$(133)THENTE$(ZN)="":GOTO900
1020 IFEG$<>CHR$(20)THEN1080
1030 IFLEN(NT$)<1THEN990
1040 PRINT" ";CHR$(157);
1050 PRINTCHR$(157);" ";CHR$(157);
1060 NT$=LEFT$(NT$,LEN(NT$)-1)
1070 GOTO990
1080 IFEG$<>CHR$(29)THEN1110
1090 IFLEN(NT$)<=LEN(TE$(ZN))THENEG$=MID$(TE$(ZN),LEN(NT$)+1,1):GOTO1150
1100 GOTO990
1110 IFEG$<>CHR$(94)THEN1150
1120 IFLEN(NT$)<1THEN130
1130 GOTO990
1140 IFAZ=0THENNT$="":AZ=1
1150 PRINT" ";CHR$(157);EG$;
1160 IFEG$=CHR$(13)THEN1200
1170 NT$=NT$+EG$
1175 IFLEN(NT$)>64THENGOSUB2300
1180 IFLEN(NT$)=70THEN:GOTO1230
1190 GOTO990
1200 IFLEN(NT$)<1THENNT$=TE$(ZN):PRINTNT$
1210 TE$(ZN)=NT$
1220 GOSUB2300:GOTO900
1230 PRINT:PRINT" [205]AXIMAL 70 [218]EICHEN [146]"
1235 PRINT:PRINT" [215]ENN [206]EUE [218]EILE [207][203] ^ [196]RUECKEN "      "
1240 [153]" (null)ENN NOCHMALS ATNENDERN ASC1 STR$RUECKEN WAIT"
1245 [161]WA$:[139]WA$[178]""[167]1245
1250 [139]WA$[178][199](94)[167]TE$(ZN)[178]"":TE$(ZN)[178]TE$(ZN)[170]NT$:[137]900
1255 [139]WA$[178][199](133)[167][153]"":[137]910
1260 [137]1245
1300 [141]2300:[153][199](147)
1310 ZN[178]1
1320 [139][200](TE$(ZN),2)[178]"**"[167]1380
1330 [153]ZN;": ";
1340 [153]TE$(ZN)
1350 [141]1420
1360 ZN[178]ZN[170]1:[139]ZN[178]100[167]1380
1370 [137]1320
1380 [153]
1390 [153][163]5)"->  STR$VAL(null)CLOSE(null)VAL(null)(null)CLOSERIGHT$(null)(null)CLOSE(null)(null)CLOSEVAL(null)STR$VAL WAIT <-"
1400 [161]EG$:[139]EG$[178]""[167]1400
1405 [139]EG$[178][199](94)[167]130
1410 [137]1400
1420 [161]EG$
1430 [139]EG$[179][177][199](94)[167][142]
1440 [161]EG$
1450 [139]EG$[179][177]CHR(94)[167]1440
1460 [141]2300:[142]
1500 [141]2300:[141]2400:DN%[178]4:[141]5000
1505 DN%[178]4:[141]5000
1508 [153][199](147)[178]ZE$:[153]:[153][163]5)"-> (null)EXT WIRD ATNUSGEDRUCKTWAIT <-"
1510 [159]4,4,7
1515 ZN[178]1
1520 [139][200](TE$(ZN),2)[178]"**"[167]1545
1525 [152]4,[199](16)"03"TE$(ZN)
1530 ZN[178]ZN[170]1
1535 [139]ZN[178]100[167]1545
1540 [137]1520
1545 [139]NE[178]1[167][141]2980:[160]4:[141]1550:[137]130
1550 [153][163]3):[133]"(null)OCH EIN ATNUSDRUCK";WA$
1560 [139]WASA$[179][177]"J"[175]WA$[179][177]"N"[167][153]"ONON":[137]1555
1565 [139]WA$[178]"N"[167][160]4:[137]5360
1570 [153]
1575 [133]"(null)OLLEN STR$ATEN GEAENDERT WERDEN";WA$
1580 [139]WA$[179][177]"J"[175]WA$[179][177]"N"[167][153]"ONON":[137]1575
1585 [139]WA$[178]"N"[167][160]4:[137]2800
1590 [139]WA$[178]"J"[167][160]4:[137]2400
1600 [141]2300:[153][199](147);ZE$:[153]
1605 [153][163]3)"(null)VAL(null)(null)(null)(null)VAL(null)LENLEFT$VAL(null)WAIT"
1610 [153]:[153][163]3)"STR$EN IM (null)PEICHER BEFINDLICHE (null)EXT ":[153]
1615 [153][163]3)"DURCH STR$RUECKEN VON ASC1 (null)OESCHEN.":[153]
1620 [153]:[153][163]9)" PEEKEI RIGHT$RRTUM ^ STR$RUECKEN WAIT"
1625 [161]WA$:[139]WA$[178]""[167]1625
1630 [139]WA$[179][177][199](94)[175]WA$[179][177][199](133)[167]1625
1635 [139]WA$[178][199](94)[167]130
1640 [139]WA$[178][199](133)[167]1650
1645 [137]1625
1650 [153]:[153][163]19)"(null)EXT WIRD CHR$ELOESCHT"
1655 [129]AN[178]1[164]100
1660 TE$(AN)[178]""
1670 [130]:[153]:[153][163]15)"ASCVAL(null)(null)RIGHT$CHR$":[129]I[178]0[164]700:[130]
1680 [137]130
1700 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
1705 [153][199](147);ZE$
1710 [153][163]5)"  (null)VAL(null)(null) (null)(null)VALRIGHT$LENLEFT$VAL(null)(null)CLOSECLOSE":[153]:[153][163]5)"(null)EXTNAME ->   ^";
1720 [133]DN$:[139]DN$[178][199](94)[167]1400
1730 [159]1,8,2,"@:"[170]DN$[170]",S,W":[141]4000:[129]ZN[178]1[164]100
1750 [139]TE$(ZN)[178]""[167]TE$(ZN)[178][199](13)
1760 [152]1,TE$(ZN)
1770 [130]:[152]1,[199](13):[160]1:[141]2300:[141]4000:[137]4100
1800 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
1805 [153][199](147);ZE$
1810 [153][163]5)"  (null)VAL(null)(null)CLOSE(null)ATNSTR$VAL(null)  ":[153]:[153][163]5)"(null)EXTNAME ->   ^CMDCMDCMD";
1820 [133]DN$:[139]DN$[178][199](94)[167]4100
1830 [159]1,8,2,DN$[170]",S,R":[141]4000:[129]ZN[178]1[164]100
1850 TE$[178]""
1860 [161]#1,EG$
1870 TE$[178]TE$[170]EG$
1880 [139]EG$[178][199](13)[176]EG$[178]""[167]1900
1890 [137]1860
1900 TE$(ZN)[178]TE$:TE$(ZN)[178][200](TE$(ZN),[195](TE$(ZN))[171]1)
1910 [130]:[160]1:[141]2300:[137]130
2000 [141]2300:[153][199](147);ZE$
2010 [153]:[153]:[153]"  ASC1 ->WAIT LEFT$INTERGRUNDFARBE
2020 PRINT:PRINT:PRINT"  [198]3 ->[146] [210]AHMENFARBE
2030 [153]:[153]:[153]"  ASC5 ->WAIT (null)CHRIFTFARBE
2040 PRINT:PRINT:PRINT"  [198]7 ->[146] [205]ENUE
2050 [161]FA$:[139]FA$[178]""[167]2050
2060 [139]FA$[178][199](133)[167]HF[178]HF[170]1:[151]53281,HF:[139]HF[177]14[167]HF[178][171]1
2070 [139]FA$[178][199](134)[167]RF[178]RF[170]1:[151]53280,RF:[139]RF[177]14[167]RF[178][171]1
2080 [139]FA$[178][199](135)[167]SF[178]SF[170]1:[151]646,SF:[153]"(null)CHRIFTFARBE"
2085 [139]SF[177]14[167]SF[178][171]1
2090 [139]FA$[178][199](136)[167][141]2300:[137]130
2100 [137]2050
2200 [141]2300:[153][199](147);ZE$:[153]
2210 [153]:[153]"PEEKITTE BESTAETIGEN (null)IE DEN ENDGUELTIGEN
2220 PRINT:PRINT"[208]ROGRAMMABBRUCH DURCH [196]RUECKEN VON [198]1 !"
2230 PRINT:PRINTTAB(8)" [194]EI [201]RRTUM ^ DRUECKEN [146]"
2240 GETWA$:IFWA$=""THEN2240
2250 IFWA$<>CHR$(94)ANDWA$<>CHR$(133)THEN2240
2260 IFWA$=CHR$(94)THEN130
2270 SYS65129
2280 GOTO2240
2300 SI=54272:POKESI+5,32:POKESI+6,15*16:POKESI+24,15
2310 POKESI,59:POKESI+1,139:POKESI+4,33
2320 FORI=1TO100:NEXT:POKESI+4,0:RETURN
2400 GOSUB2300:PRINTCHR$(147);ZE$
2405 PRINT:PRINT"[211]OLL DER [193]BSENDER AUSGEDRUCKT WERDEN? ":PRINT
2410 PRINT" [194]EI [201]RRTUM ^ DRUECKEN"
2415 GETEN$:IFEN$=""THEN2415
2420 IFEN$<>CHR$(74)ANDEN$<>CHR$(78)ANDEN$<>CHR$(94)THEN2415
2425 IFEN$="^"THEN130
2430 IFEN$="J"THENNA=0:GOTO2445
2435 IFEN$="N"THENNA=1:GOTO2445
2440 GOTO2415
2445 GOSUB2300:PRINTCHR$(147);ZE$
2450 PRINT:PRINT"[205]OECHTEN [211]IE WEITERE [196]ATEN EINGEBEN ? ":PRINT
2455 GETEN$:IFEN$=""THEN2455
2460 IFEN$<>CHR$(74)ANDEN$<>CHR$(78)THEN2455
2465 IFEN$="J"THENJ=2:GOTO2480
2470 IFEN$="N"ANDNA=1ANDJ=0THEN1505
2472 IFEN$="N"ANDJ=2ORJ=0THEN2800
2475 GOTO2455
2480 PRINT" [210][197][212][213][210][206][160][215][197][206][206][160][203][197][201][206][197][160][197][201][206][199][193][194][197] ":PRINT
2485 INPUT"[193]NREDE         ";A$
2490 INPUT"[214]ORNAME        ";V1$
2495 INPUT"[206]AME           ";N1$
2500 INPUT"[211]TRASSE U. [206]R. ";S1$
2510 INPUT"[208][204][218] U. [207]RT     ";P1$
2515 PRINT
2520 PRINT:INPUT"[196]ATUM          ";D$
2525 PRINT:INPUT"[194]ETREFF        ";BT$:IFLEN(BT$)>0THENBT$="[194]ETR.: "+BT$
2526 PRINT"[197]INGABEN KORREKT ?"
2527 GETEG$:IFEG$<>"J"ANDEG$<>"N"THEN2527
2528 IFEG$="N"THENPRINT"":GOTO2480
2530 GOSUB2300:PRINTCHR$(147);ZE$:PRINT
2535 PRINT"[215]AEHLEN [211]IE NUN DIE [193]NREDE AUS :":PRINT
2540 PRINT" 1 ->[146] [211]EHR GEEHRTE [196]AMEN UND [200]ERREN,":PRINT
2545 PRINT" 2 ->[146] [211]EHR GEEHRTE [198]RAU [164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
2550 PRINT" 3 ->[146] [211]EHR GEEHRTER [200]ERR [164][164][164][164][164][164][164][164][164][164][164]":PRINT
2555 PRINT" 4 ->[146] [197]IGENE [197]INGABEN
2560 [161]WA$:[139]WA$[178]""[167]2560
2565 WA[178][197](WA$):[139]WA[179]1[176]WA[177]4[167]2560
2570 [145]WA[137]2630,2640,2650,2580
2575 [137]2560
2580 [153]:[153]"(null)AMEN SELBER EINGEBEN,(null)OMMA WIRD ANGEH.
2585 PRINT:INPUT"[201]HRE [197]INGABE ->";AS$:AS$=AS$+",":GOTO2670
2630 AS$="[211]EHR GEEHRTE [196]AMEN UND [200]ERREN,":GOTO2670
2640 AS$="[211]EHR GEEHRTE [198]RAU "+N1$+",":GOTO2670
2650 AS$="[211]EHR GEEHRTER [200]ERR "+N1$+",":GOTO2670
2670 GOSUB2300:PRINT:PRINT"[211]CHLUSSWORT EINGEBEN "
2680 GETS$:IFS$<>"J"ANDS$<>"N"THEN2680
2685 IFS$="J"THENNE=1:GOTO2700
2690 IFS$="N"THENNE=0:GOTO2800
2695 GOTO2680
2700 PRINTCHR$(147);ZE$:PRINT:PRINT"  1 ->[146] MIT FREUNDLICHEN [199]RUESSEN:
2705 [153]:[153]"  2 ->WAIT (null)IT FREUNDLICHEN CHR$RUESSEN:
2710 PRINT:PRINT"  3 ->[146] [200]OCHACHTUNGSVOLL:
2715 [153]:[153]"  4 ->WAIT CHR$EZEICHNET:
2720 PRINT:PRINT"  5 ->[146] [197]IGENE [197]INGABE
2725 [161]WA$:[139]WA$[179]"1"[176]WA$[177]"5"[167]2725
2730 WA[178][197](WA$):[145]WA[137]2760,2770,2775,2780,2740
2735 [137]2725
2740 [153]:[153]"  STR$OPPELPUNKT WIRD NACHGESTELLT"
2750 [153]:[133]"  RIGHT$HRE VALINGABE ->";SH$:SH$[178]SH$[170]":":[137]2800
2760 SH$[178]"MIT FREUNDLICHEN CHR$RUESSEN:":[137]2800
2770 SH$[178]"(null)IT FREUNDLICHEN CHR$RUESSEN:":[137]2800
2775 SH$[178]"LEFT$OCHACHTUNGSVOLL:":[137]2800
2780 SH$[178]"CHR$EZEICHNET:":[137]2800
2800 DN%[178]4:[141]5000:[159]4,4,7:[139]NA[178]1[167]2850
2805 [153][199](147);ZE$:[153]:[153][163]5)"-> (null)VAL(null)(null)CLOSE(null)RIGHT$(null)STR$CLOSEATN(null)(null)CHR$VALSTR$(null)(null)LEN(null)(null)WAIT <-"
2810 [152]4:[152]4:[152]4,[199](14)[199](16)"03"V$[199](15)[199](16)"55"P$
2820 [152]4,[199](16)"55"SE$
2830 [152]4,[199](16)"03"FT$[199](16)"55"TF$
2832 [152]4,[199](13)[199](16)"55"BV$
2834 [152]4,[199](16)"55"BZ$
2836 [152]4,[199](16)"55"KT$
2840 [152]4,[199](13)[199](16)"55"D$
2850 [139]J[178]2[167][137]2900
2860 [129]I[178]1[164]4:[152]4,[199](13):[130]I
2870 [160]4:[137]1510
2900 [152]4,[199](13)[199](13)
2910 [152]4,[199](16)"03"A$
2920 [152]4,[199](16)"03"V1$" "N1$
2930 [152]4,[199](16)"03"S1$
2940 [152]4,[199](13)[199](16)"03"P1$
2950 [152]4,[199](13)[199](13)[199](13)[199](16)"03"BT$
2960 [152]4,[199](13)[199](13)[199](16)"03"AS$[199](13)
2965 [160]4:[137]1510
2980 [152]4,[199](13)[199](13)[199](16)"03"SH$:[152]4:[152]4,[199](16)"03"V$
2990 [142]
3000 [141]2300:[153][199](147);ZE$:[153]
3010 [153]"  LEFT$VAL(null)(null) BEI:":[153]
3020 [153]:[153]"   1 ->WAIT (null)EXTEINGABE
3030 PRINT:PRINT"   2 ->[146] [212]EXTEINFUEGEN
3040 [153]:[153]"   3 ->WAIT (null)EXTAENDERN
3050 PRINT:PRINT"   4 ->[146] [212]EXTLOESCHEN"
3060 PRINT:PRINT:PRINTTAB(15)"[201]HRE [215]AHL"
3070 GETWA$:IFWA$=""THEN3070
3080 WA=VAL(WA$)
3090 IFWA<1ORWA>4THEN3070
3100 ONWAGOTO3120,3280,3410,3590
3110 GOTO3070
3120 GOSUB2300:PRINTCHR$(147);ZE$:PRINT
3130 PRINT"   [212]EXTEINGABE: [146]"
3140 PRINT:PRINT"  [197]S STEHEN IHNEN 99 [218]EILEN MIT MAXIMAL
3150 [153]"  70 (null)EICHEN ZUR (null)ERFUEGUNG. (null)EUER (null)EXT
3160 PRINT"  SOLLTE DARUM IMMER MIT [218]EILENNUMMER 1
3170 [153]"  BEGINNEN. ASCEHLER KOENNEN WIE GEWOHNT
3180 PRINT"  MIT DER [201]NST/[196]EL [212]ASTE SOFORT KORRI-
3190 [153]"  GIERT WERDEN.
3200 PRINT"  [205]OECHTEN [211]IE DIE [197]INGABE BEENDEN,
3210 [153]"  GEBEN (null)IE ALS ERSTES (null)EICHEN IN EINER
3220 PRINT"  NEUEN [218]EILE '^'  EIN UND [211]IE GELANGEN
3230 [153]"  WIEDER INS LEFT$AUPTMENUE.
3240 PRINT"  [212]ONSINGNAL BEGINNT BEI [193]NBRUCH DER
3250 [153]"  LETZTEN FUENF (null)EICHEN. ATNUTOMATISCHES
3260 PRINT"  [210]ETURN BEI [218]EILENENDE.
3270 [137]3780
3280 [141]2300:[153][199](147);ZE$:[153]
3290 [153]"  (null)EXTEINFUEGEN: WAIT
3300 PRINT:PRINT"  [215]AEHLEN [211]IE [208]UNKT 2 [212]EXTAENDERN.
3310 [153]"  (null)EXT KANN NUR DANN EINGEFUEGT WERDEN,
3320 PRINT"  WENN EINE [218]EILE GELOESCHT WIRD ODER
3330 [153]"  SICH ZWISCHEN DEN (null)EILEN NOCH EINE
3340 PRINT"  BEFINDET, DIE VORHER MIT [210]ETURN UEBER-
3350 [153]"ON  SPRUNGEN WURDE.
3360 PRINT"  [199]EBEN [211]IE DIE [206]UMMER DER NOCH FREIEN
3370 [153]"  ODER VORHER GELOESCHTEN (null)EILE EIN.
3380 PRINT"  [197]INGABEN IM [205]ODUS 2 [212]EXTAENDERN VOR-
3390 [153]"  NEHMEN UND MIT (null)ETURN ABSCHLIESSEN.
3400 GOSUB3780
3410 GOSUB2300:PRINTCHR$(147);ZE$:PRINT
3415 PRINT"   [212]EXTAENDERN: [146]":PRINT
3420 PRINT:PRINT"  [199]EBEN [211]IE IM [208]ROGRAMMODUS ZWEI DIE
3430 [153]"  (null)UMMER DER (null)EILE AN, WELCHE GEAENDERT
3440 PRINT"  WERDEN SOLL. [196]IE [218]EILE WIRD AUF DEM
3450 [153]"  PEEKILDSCHIRM AUSGEGEBEN UND KANN DARUN-
3460 PRINT"  TER NEU EINGEGEBEN WERDEN.
3470 [153]"  STR$RUECKEN (null)IE DIE LENUSORTASTE 'RECHTS',
3480 PRINT"  SO WIRD DER ALTE,SICH AN DER GLEICHEN
3490 [153]"  (null)TELLE BEFINDLICHE (null)EXT IN DIE NEUE
3500 PRINT"  [218]EILE UEBERNOMMEN. [196]RUECKEN [211]IE [198]1,
3510 [153]"  SO WIRD DIE GESAMTE (null)EILE GELOESCHT.
3520 PRINT"  [215]URDEN 70 [218]EICHEN EINGEGEBEN,IST EINE
3530 [153]"  WEITERE VALINGABE NICHT MEHR MOEGLICH.
3540 PRINT"  [196]RUECKEN [211]IE NUN '^', SO WIRD DIE
3550 [153]"  (null)EILE SO UEBERNOMMEN. STR$RUECKEN (null)IE
3560 PRINT"  '[198]1' KANN DIE [218]EILE NEU EINGEGEBEN
3570 [153]"  WERDEN.
3580 GOTO3780
3590 GOSUB2300:PRINTCHR$(147);ZE$:PRINT
3600 PRINT"  [212]EXTLOESCHEN: [146]":PRINT
3610 PRINT"  [197]INZELNE [218]EILEN KOENNEN GELOESCHT
3620 [153]"  WERDEN, INDEM (null)IE (null)UNKT 2 (null)EXTAENDERN
3630 PRINT"  WAEHLEN:
3670 [153]"  CHR$EBEN (null)IE DIE (null)UMMER DER (null)EILE EIN,
3680 PRINT"  WELCHE [211]IE LOESCHEN MOECHTEN. [215]ENN
3690 [153]"  DIESE ANGEZEIGT WIRD, DRUECKEN (null)IE
3700 PRINT"  '[198]1'. [211]OLL DIE [218]EILE NEU GESCHRIEBEN
3710 [153]"  WERDEN, SO EBENFALLS IM (null)ODUS 2,NICHT
3720 PRINT"  IM [208]ROGRAMMTEIL 1.
3730 [153]"  (null)OLLEN (null)IE DEN GESAMTEN (null)EXT LOESCHEN,
3740 PRINT"[145]  WAEHLEN [211]IE [208]UNKT 3 UND DRUECKEN [198]1.
3750 [153]"  STR$ER (null)EXT WIRD GELOESCHT UND (null)IE
3760 PRINT"  KOENNEN EINEN NEUEN [212]EXT EINGEBEN.
3770 [137]3780
3780 [151]211,12:[151]214,22:[158]58732:[153]"-> (null)ASTEWAIT <-"
3790 [151]198,0:[146]198,1:[137]130
4000 :
4020 [132]5,W,X$,Y,Z:[139]W[178]0[167][142]
4025 [153]:[153]:[153][163]5)W,X$,Y;Z
4030 [153]:[153]:[153][163]12)"-> (null)ATN(null)(null)VAL WAIT <-":[151]198,0:[146]198,1
4040 [160]1
4100 [141]2300:[153][199](147);ZE$:[153]
4110 [153]:[153]"   1 ->WAIT  (null)EXT (null)PEICHERN
4120 PRINT:PRINT"   2 ->[146]  [212]EXT [204]ADEN
4130 [153]:[153]"   3 ->WAIT  (null)EXTDATEI (null)OESCHEN
4140 PRINT:PRINT"   4 ->[146]  [196]ATEI UMBENENNEN
4150 [153]:[153]"   5 ->WAIT  STR$ISKETTE ASCORMATIEREN
4160 PRINT:PRINT"   6 ->[146]  [196]IRECTORY [204]ESEN
4170 [153]:[153]"   7 ->WAIT  LEFT$AUPTMENUE
4180 PRINT:PRINT:PRINTTAB(15)"  [201]HER [215]AHL
4200 [161]WA$:[139]WA$[178]""[167]4200
4210 [139]WA$[179][199](49)[176]WA$[177][199](55)[167]4200
4220 WA[178][197](WA$)
4230 [145]WA[137]1700,1800,4300,4400,4500,4600,130
4240 [137]4200
4300 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
4305 [153][199](147);ZE$
4310 [153][163]3)"  (null)VAL(null)(null)CLOSE(null)(null)VAL(null)LENLEFT$VAL(null)  ":[153]:[153]
4320 [153][163]3):[133]"(null)EXTNAME ->    ^CMDCMDCMD";LD$:[139]LD$[178][199](94)[167]4100
4330 DN$[178]"S0:"[170]LD$
4340 [153]:[153][163]3)LD$" WIRD GELOESCHT  "
4350 [159]1,8,15;PRIND#1,DN$:[160]1
4355 [141]4000:[137]4100
4400 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
4405 [153][199](147);ZE$
4410 [153][163]3)"STR$ATN(null)VALRIGHT$CLOSE(null)(null)PEEKVAL(null)VAL(null)(null)VAL(null)  ":[153]
4420 [153][163]3)"ATNLTER STR$ATEINAME ->  ^CMDCMDCMD";
4430 [133]AD$:[139]AD[178][199](94)[167]4100
4450 [153]:[153][163]3)"(null)EUER STR$ATEINAME";
4460 [133]ND$
4465 DN$[178]"R0:"[170]ND$[170]"="[170]AD$
4470 [153]:[153][163]3)""AD$"WAIT= -> "ND$"WAIT"
4480 [159]1,8,15:[152]1.DN$:[160]1:[141]4000
4490 [137]4100
4500 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
4505 [153][199](147);ZE$
4510 [153][163]3)"  STR$ISKETTE ASCORMATIEREN  ":[153]
4520 [133]"   (null)ELCHEN (null)AMEN ->   ^CMDCMDCMD";ND$:[139]ND$[178]CHR(94)[167]4100
4530 [153]:[133]"   (null)ELCHE RIGHT$STR$     -> ";ID$:[139]ID$[179][177]""[167]ID$[178]","[170]ID$
4540 DN$[178]ND$[170]ID$:[153]:[153][163]3)"  STR$ISKETTE EINGELEGT ?"
4550 [153]:[153][163]8)"-> (null)ASTE STR$RUECKEN <- "
4560 [159]1,8,15,"N:"[170]DN$:[160]1:[141]4000
4570 [137]4100
4600 [141]2300:DN%[178]8:[141]5000:[139]DR%[178]1[167][141]5140
4605 [153][199](147);ZE$
4610 [153][163]3)"    STR$RIGHT$(null)VALLEN(null)(null)(null)(null)CLOSE(null)VAL(null)VAL(null)    "
4620 [159]3,8,0,"$0":[161]#3,Q$,Q$
4630 [161]#3,Q$,Q$,BL$,BH$
4640 [139]Q$[178]""[167][160]3:[141]4690:[137]4100
4650 BL$[178]BL$[170][199](0):BH$[178]BH$[170][199](0)
4660 [153]256[172][198](BH$)[170][198](BL$);
4670 [158]832:[137]4630
4680 [141]4690:[137]4100
4690 [153][163]7)"->  (null)ATN(null)(null)VAL WAIT <-":[151]198,0:[146]198,1:[142]
5000 [151]2,DN%:[158]49152:[139][194](2)[178]0[167]DR%[178]1:[142]
5020 DR%[178]0
5030 [141]2300:[153][199](147);ZE$:[153]:[153]
5040 [139]DN%[178]4[167]XY$[178]"STR$(null)(null)LEN(null)VAL(null)"
5050 [139]DN%[178]8[167]XY$[178]"ASC(null)(null)(null)(null)(null) "
5060 [129]I[178]0[164]5
5070 [153][163]4)" -> -> -> ";XY$;" <- <- <-    ":[129]A[178]0[164]40:[130]A:
5080 [153][163]4) " -> -> -> ";XY$;" <- <- <-    "
5090 [130]I
5100 [153]:[153]:[153]:[153]:[153][163]4)"CHR$ERAET PEEKITTE VALINSCHALTEN  !!"
5110 [153]:[153][163]4)"   (null)ASTE STR$RUECKEN WENN (null)(null)   "
5120 [151]198,0:[146]198,1:[142]
5140 [159]1,8,15,"UI:":[160]1:[142]
5200 [129]I[178]49152[164]49185:[135]X:[151]I,X:[130]
5210 [131]169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
5220 [131]192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
5230 [129]I[178]0[164]23:[135]X:[151]832[170]I,X:[130]
5240 [131]162,3,32,198,255,32,207,255,32
5250 [131]210,255,208,248,169,13,32,210
5260 [131]255,76,204,255,0,0,0
5270 [142]
5300 [141]2300:[153][199](147)[199](14);ZE$
5310 [153]:[153]:[153]:[153][163]15)"LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null)"
5320 [153]:[153]:[153][163]18)"B Y"
5330 [153]:[153]:[153][163]13)"MID$(null)VAL(null)CHR$CLOSE(null)RIGHT$(null)(null)VAL(null)(null)CLOSE"
5340 [129]I[178]0[164]3500:[130]:[142]
5360 V1$[178]"":N1$[178]"":S1$[178]"":A$[178]"":P1$[178]"":BT$[178]"":AS$[178]""::D$[178]"":SH$[178]""
5370 NA[178]0:J[178]0:[137]130